home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / BYTECOMP / DISASS.ELC < prev   
Text File  |  1993-03-28  |  4KB  |  30 lines
  1. ;;; compiled by @win386 on Sat Mar 13 01:57:59 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/bytecomp/disass.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (require 'byte-optimize)
  14. (defvar disassemble-column-1-indent 5 "\
  15. *")
  16. (defvar disassemble-column-2-indent 10 "\
  17. *")
  18. (defvar disassemble-recursive-indent 3 "\
  19. *")
  20. (fset 'disassemble #[(object &optional buffer indent interactive-p) "ó┴=½à┬├E ¼é┼è¼ä¼É╚É╚qê╔ ?#æê¬èqê╔ ├#ê)├ç" [object byte-code lambda nil indent 0 interactive-p buffer "*Disassemble*" disassemble-internal] 5 "\
  21. Print disassembled code for OBJECT in (optional) BUFFER.
  22. OBJECT can be a symbol defined as a function, or a function itself
  23. (a lambda expression or a compiled-function object).
  24. If OBJECT is not already compiled, we compile it, but do not
  25. redefine OBJECT if it is a symbol." (byte-code "└┴┬ ─┼$!╞╟┼Fç" [intern completing-read "Disassemble function: " obarray fboundp t nil 0] 6)])
  26. (fset 'disassemble-internal #[(obj indent interactive-p) "└ëëë9½êKë¬u╞!½à╟╚ \"êó─=½à╔A<½è@╩=¼ä╟╦!ê:½á╠₧¼¢½ï╬ ½â╧¬ü╨ \"ê╤!½ä╬╥!ê:½ïAë@A¬ä╙H╙U½ñjê╒╓ ¼â ½â╫¬ü╪ ½â┘¬ü╪ ½å╒┌ \"¬ü╪$cê:½ë@;¡ì@¬ëG█V¡â█H뽺\n;½ú:½âAjê▄▌p\"ê▐▀\n\"½ê\n╙ëöOαP\n▀▒ê)jêßcêΓ    p\"ê▀cê:½àπ₧¬ïGΣV¡àπΣHDë#½║#A@#óóπ=½âAjêσcê#ó╠=½Å▀cêµ#'\\\"ê¬è╔(Γ#p\"ê)▀cê):½Å╠₧½èµ╠₧\"ê¬úΘ!½êµ\"ê¬ûΩcê╔(ΓA½àδB¬é@p\"ê),¡â╬╪!ç" [nil args doc name macro obj subrp error "Can't disassemble #<subr %s>" t lambda "not a function" byte-code interactive-p message "Compiling %s's definition..." "Compiling definition..." byte-compile "Done compiling.  Disassembling..." 0 indent format "byte code%s%s%s:\n" " for" "" " macro" " %s" 4 princ "  doc:  " string-match "\n" " ..." "  args: " prin1 interactive 5 " interactive: " disassemble-1 disassemble-recursive-indent print-escape-newlines compiled-function-p "Uncompiled body:  " progn] 8])
  27. (fset 'disassemble-1 #[(obj indent) "└ë :½ï A@ AA@¬ê ─H ┼H╞\n    \"└ëë    \n╦└\n\n ╬\n₧ë ½ò ATëáê \n>A\n¬b+\nâÄ\n@@    \n@Ajê    ╬=½î╨@!╤▒êéà\\jê    ½ò╙╘╒    !ë\"½ë╓└O¬â╫    ╪=½â┘cêcê█\\\\\\jê▄cê    >½ï╨A@!cêéé    ▐>½ë╨!cêéé    ▀>½èα@p\"êéé    ß>âé@Γ!¼¬óπ=½åΣ₧¼¥óσ=½┐ΓA!¼ÅAóπ=½░ΣA₧½⌐Γ!½àµcê¬Åóπ=½àτcê¬âΦcêΘ*─\\\\└#ê¬│óΣ=½Åδcê∞*\\\"ꬥóóΣ=½ïφcêε∩\"ê¬è≡1αp\"ê)≥cê\nAë\näX.└ç" [nil constvec bytes obj 1 2 byte-decompile-bytecode opname arg op lap 0 tmp tagno TAG indent int-to-string ":" disassemble-column-1-indent string-match "^byte-" symbol-name 5 "<not-an-opcode>" byte-constant2 " #### shouldn't have seen constant2 here!\n  " disassemble-column-2-indent -1 " " byte-goto-ops (byte-call byte-unbind byte-listN byte-concatN byte-insertN) (byte-varref byte-varset byte-varbind) prin1 (byte-constant byte-constant2) compiled-function-p lambda byte-code macro "<compiled-function>\n" "<compiled lambda>" "<compiled macro>\n" disassemble-internal disassemble-recursive-indent "<byte code>\n" disassemble-1 "(<byte code>...)\n" mapcar #[(obj) "└    \n \\\"ç" [disassemble-1 obj indent disassemble-recursive-indent] 4] t print-escape-newlines "\n"] 6 "\
  28. Prints the byte-code call OBJ in the current buffer.
  29. OBJ should be a call to BYTE-CODE generated by the byte compiler."])
  30.